
source("D:/Dropbox/r-course/script/vpspph_project/minmax_qual2.R")
setwd(D:/Dropbox/r-course/script/vpspph_project)
## EXAMPLE
minmax_qual(
inpath = c("Data/be_000HEG05_00CEMU_201001010000_201001312330_mez_ca05_cti30_0005.dat",
           "Data/be_000HEG05_00CEMU_201002010000_201002282330_mez_ca05_cti30_0005.dat",
           "Data/be_000HEG05_00CEMU_201003010000_201003312330_mez_ca05_cti30_0005.dat",
           "Data/be_000HEG05_00CEMU_201004010000_201004302330_mez_ca05_cti30_0005.dat",
           "Data/be_000HEG05_00CEMU_201005010000_201005312330_mez_ca05_cti30_0005.dat",
           "Data/be_000HEG05_00CEMU_201006010000_201006302330_mez_ca05_cti30_0005.dat"
           ),
outpath = c("Data/output1.dat",
            "Data/output2.dat",
            "Data/output3.dat",
            "Data/output4.dat",
            "Data/output5.dat",
            "Data/output6.dat"
            ),
para = "Ta_200",
maxlimit = 60,
minlimit = -40,
digit = 1)
